﻿Imports AccesoDatos

Public Class CatalogoFunciones
    Public Function MaximoContrato() As DataSet
        Dim dsConsultaDatos As DataSet
        Dim objCom As New BaseDatos
        dsConsultaDatos = objCom.ExecSPDataSetSP("MAX_CONTRATO")
        Return dsConsultaDatos
    End Function

    Public Function MaximoPrestamo() As DataSet
        Dim dsConsultaDatos As DataSet
        Dim objCom As New BaseDatos
        dsConsultaDatos = objCom.ExecSPDataSetSP("MAX_PRESTAMO")
        Return dsConsultaDatos
    End Function

End Class

